﻿Public Class FrmAlbum

	Private Album As Album

	Sub New(ByVal Album As Album)
		Me.New()
		Me.Album = Album
		TxtName.Text = Album.Name
		datetime.Value = Album.Date
		SetStates()
	End Sub

	Sub New()
		InitializeComponent()
		SetStates()
	End Sub

	Sub SetStates() Handles autodate.CheckedChanged
		datetime.Enabled = Not autodate.Checked
	End Sub

End Class